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s THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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AUTHOR BRIAN PORTER CREATION DATE 19-FEB-1979 
Functional description: 
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This module displays error log entries for all massbus disks. 
Modified by: 


VO3-003 SARO224 Sha nolds, 28-Mar-1984 
Changed the call to "ocesi eit to ORBSL_OWNER. 


v03-002 SAR0078 Sharon A. Reynolds, 20-Jun-1983 
Changed the corr tage control in the ‘format’ statements 
for use with ERF. 


sss 
SOLES 


Seeeeece 


v03-001 SARO0047 Sharon A. Reynolds, 9-Jun-1983 
Removed brief/cryptic support. 

v02-004 BP0004 Brian Porter, 16-NOV-1981 
Added different mba handling. 

v02-003 BP0003 Brian Porter, 06-NOV-1981 


Added feyice gtsent ren support. Corrected ac lo, dc lo 
reversal in er 


v02-002 8P0002 Bri 29-JUN-1981 
Added call to LOGGER = DREAD. Added DIAGNOSTIC. MODE. 
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ifeseon1 9B 92:38:59 DISKSUMSMASTER:LERE-SRCIMASSDISK.FORSIo™ > 


A C v02-001 8P0001 Brian Porter 31-AUG-1980 09 
¢ Removed call to UNUSED "Bits." Changed format statements | 8 
Bes so that bit registers are printed. 
INCLUDE '"SRCS:MSGHDR.FOR /NOLIST’ 
1 INCLUDE "SRCS$:DEVERR.FOR /NOLIST" 
4 | 
5 BYTE LUN a3 
| 
$ integer*4 mba_control_register(7) | 09 
INTEGER®4 DRIVE cst | $3 
INTEGER®4 DRIVE-DS 09 
1 INTEGER®4 DRIVE-ER1 09 
é INTEGER®G DRIVE—MR1 09 
INTEGER®4 DRIVE_AS | 09 
INTEGER®4 DRIVE-LA 09 
5 INTEGER®4 DRIVE-DA 09 
INTEGER®4 DRIVE-DT 09 
INTEGERS DRIVE-SN 
INTEGER®4 DRIVE—OF 09 
INTEGER DRIVE-DC 09 
40 INTEGER®4 RP_CC 09 
41 INTEGER®4 RM-ER 09 
4 INTEGER®4 RP-ER 09 
024 INTEGER®4 RM_MR | 09 
44 INTEGER®4 RP-ER 09 
45 INTEGER®4 RM 09 
4 INTEGER®4 DRIVE_EC1 09 
4 INTEGER®4 DRIVE-FC2 09 
48 INTEGER®4 DRIVE~FUNC 99 
39 logicale1 diagnostic_mode | 8 
4 INTEGER*4 FUNCN (9:31) | 09 
INTEGER®4 DESCR(2) 
4 INTEGER®4 FIELD 
5 INTEGER®4 COMPRESS4 
5 INTEGER® COMPRESSC 
5 integers4 selected_mapping_register 
35 EQUIVALENCE (RMO3_DS(0) ,RPO7 sP$io) 19 
60 EQUIVALENCE (mba_ control rest ster,emb$\_dv_regsav(0)) 1 
61 EQUIVALENCE (DRIVE_CS1 EGSAV(7)) | 10 
6 EQUIVALENCE (DRIVE-DS,€ $1 By REGSAV(8)) 10 
6 EQUIVALENCE (DRIVE-ER fe DU_REGSAV(9)) 10 
64 EQUIVALENCE (DRIVE-AR $L~DV-REGSAV(10)) | 10 
65 EQUIVALENCE (DRIVETAS ERB L_Bv_REGSAV(11)) | 10 
66 EQUIVALENCE (DRIVE _DA-ERBSL_DV_REGSAV(1¢}) 10 
6 EQUI VALENCE (DRIVE-DT, EMBSL~DV-REGSAV(13)) | 10 
68 EQUIVALENCE (DRIVE-LA, EMBSL_DV-REGSAV(14)) | 10 
EQUIVALENCE (DRIVE™SN. EMBSL_DV_REGSAV(15)) | 10 
0 EQUIVALENCE (DORIV ~OF -EMBSL-DV-REGSAV(16)) | 10 
71 EQUIVALENCE (DRIVE-DC, EMBSL DVIREGSAV (I )) 10 
72 EQUIVALENCE (RP_CCTRM_HR,EMBSL-DV_REGSAV(18)) 1¢ 
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ERF .SRCJMASSDISK.FOR; 
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2(13) /*PLO UNSAFE®'/ 


V2RP056_ER 


CHARACTER®11 
CHARACTER® 
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CHARACTER®10 va w£R2(15:15) 
V2RP04_ER2(15)~ /*"AC UNSAFE®*/ 


DATA 


PROGRAM ERROR®'/ 


(15:15) 


RPO7_ER 
ih oe 
VIRPOS6_ER3(0:1) 


Vv 
V2RPO7_ER 


CHARACTER# 14 
CHARACTER®17 
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7 
-Sep-1 
| 
CHARACTERS SEEK | 
DATA. SE /*SEEK®"/ | 
CHARACTER®12 RECALIBRATE 
DATA RECALIBRATE ECALIBRATE®*/ | 
CHARACTERS12_ DRIVE CLEAR | 
DATA DRIVE_CLEAR 7"DRIVE CLEAR®*/ 
1 CHARACTER®13, RELEASE PORT 
DATA RELEASE_PORT ~/" RELEASE PORT®'/ 
1 CHARACTERS? OFFSET 
DATA OFFSET /*OFFSET#"/ 
1 CHARACTERS21 RITZ 
DAT /*RETURN TO CENTRELINE®'/ 


order ct READ_IN_ fy?) 
DATA READ_IN_PRESET ~/"READ IN PRESET®'/ 


CHARACTER®17 PACK ACKNOWLEDGE 
DATA PACK_ACKNOWLEDGE/"PACK ACKNOWLEDGE®'/ 


CHARACTER®7 SEARCH 


NOUS WN "ODOONOuU 


5 
3 
DATA SEARCH /*SEARCH®'/ 
: DATA WRITE_CHECKD /"WRITE CHECK DATA®'/ 
CHARACTER*28 WRITE =CHECKH 
DATA WRITE_CHECKH ~ /‘WRITE CHECK HEADER AND DATA®'/ 
; 5 CHARACTERS} pHRITE_DA TA 
DAT WRITE_DAT /*WRITE DATA®'/ 
H CHARACTER*22 WRITEH =PATA 
44 DATA WRITEH_DATA /*WRITE HEADER AND DATA®'/ 
1 CHARACTERS 10 ns _DATA 
§ DATA READ_DAT /*READ DATA®'/ 
4 CHARACTERS?) shfnon DAT 
5 DATA READH_D /' *READ HEADER AND DATA®'/ 


CHARACTER®17 ILLEGAL FUNCTI 
DATA ILLEGAL FUNETION/* ILLEGAL FUNCTION®* / 


CHARACTER®11 DIAGNOST nh} 
DATA DIAGNOSTIC /*DIAGNOSTIC®'/ 


CHARACTERS13 FORMAT. TRACK 
DAT FORMAT_TRACK ~ /*FORMAT TRACK®'/ 


CHARACTER®23 WRITE = TRACK D 
DATA WRITE_TRACKD ~ /‘WRITE TRACK DESCRIPTOR®'/ 
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S 
WP wn— Sere 


CHARACTERS17 WRITE _CHECKD 
| 
| 
| 


CHARACTER®22 READ. ow 


DATA READ_TRACKD ~ /"READ TRACK DESCRIPTOR®"/ 
CHARACTER®11. DRIVE TYPE 
DATA —DRIVE_TYPE /*DRIVE TYPE */ 


CALL FRCTOF (LUN) 
call dhead! (lun, *MASSBUS') 
DRIVE _FUNC=LIBSEXTZV(1,5,DRIVE_CS1) 


if ¢ 

1 emb$w_dv_bcent .ne. 0 

i¢ drive. func .ge. xfer_cmd 

1 emb$w hd_entry .ne. 98 

1) then 

all mba_control_registers (lun,5,mba_control_register, 
selectéd_mapping_register) 


5 goth mba_mapping_register (lun,selected_mapping_register, 
1 mba_ cohktret “repis er(6)) o.f98 


if (selected_mapping_register .gt. 0) then 


all mba_mapping_register (lun,(selected_mapping_register - 1), 
x ant ‘a “regis ert?) ») ——" 


ooo 
wn 


dO al = 0,31 

FUNCN(I) = ZLOCCILLEGAL_ FUNCTION) 
250 CONT INUE 

FUNCN(O) = ZLOC(NO_OPERATION) 

FUNCN(2) = ZLOC(SEEK) 

FUNCN(3) = ZLOC(RECALIBRATE) 
FUNCN(4) = ZLOC(DRIVE_CLEAR) 
FUNCN(S) = ZLOC(RELEASE_PORT) 
FUNCN(6) = ZLOC(OFFSET) 

FUNCN(7) = ZLOC(RTZ) 


ESE 
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] 
iESeertgBe O0:88:0) YAR TT EORTEMN YEt“EEcomassoisx. sont? 
FUNCN(8) = ZLOC(READ_IN_PRESET) 
FUNCN(9) = ZLOC(PACK_ACKNOWLEDGE) 
FUNCN(12) = ZLOC (SEARCH) 
FUNCN(20) = ZLOC(WRITE_CHECKD) 
FUNCN(21) = ZLOC(WRITE_CHECKH) 
FUNCN(24) = ZLOC(WRITE_DATA) 
FUNCN(25) = ZLOC(WRITEH_DATA) 
FUNCN(28) = ZLOC(READ_DATA) 
FUNCN(29) = ZLOC(READH_DATA) 
diagnostic_mode = .false. 
F (EMBSB_DV_TYPE .£0. RPO4 
éneée_pv_TyPE .£Q. RPOS 
4 EmB$B_DV_TYPE .£0. RPO6 
6 émeis_pv_TYPE EQ. RPO7) THEN 
if (LibSextzv(0,1,drive_mr1) .eq. 1) diagnostic_mode = .true. 
If (EMBSB_DV_TYPE .£Q. RPO7) THEN 
diagnostic_mode = .false. 
if (LibSextzv(15,1,drive_mr1) .eq. 1) diagnostic_mode = .true. 
FUNCN(14) = ZLOC (DIAGNOSTIC) 
FUNCN(25) = %LOC(FORMAT_TRACK) 
FUNCN(26) = ZLOC(WRITE_TRACKD) 
FUNCN(30) = ZLOC(READ_TRACKD) 
ELSE 


FUNCN(1) = ZLOC(UNLOAD) 
ENDIF 


c 
t RPO4/5/6/7 DISK DRIVE SUPPORT 
350 = CALL_LINCHK (LUN,2) 
WRITECLUN, 400) DRIVE CSI 
400  — FORMAT(/* RPCS*,124,28.8) 
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igs 2:86:59 DI SkSVMSRAS 
if (.mot. diagnostic_mode) then 


call mba_status_register!6_31 (lun, drive_cs!,drive_cs1,0) 
CALL OUTPUT (LUN,DRIVE_CS1,MASS1_CS1,0,0,0,'0") 

FIELD = LIBSEXTZV(1,5,DRIVE_CS1) 

DESCR(2) = FUNCN(FIELD) 

DESCR(1) = 33 

DESCR(1) = LIBSLOCC(*®" ,DESCR) 

CALL OUTPUTD (LUN,DESCR) 

CAs GuTPuT (LUN, DRIVE_CS1,MASS2_CS1,11,11,11,°0") 


= 
> 


4-56 
RF .SR 


10 
CIMASSDISK.FOR: 1" 


"DS" REGISTER 


Oona 


WRITE(LUN, 505) DRIV 
505 FORMAT 


TB, "RPDS 7136, 78.8) 
if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,drive_cs!,drive_ds,1) 
IF (EMBSB_DV_TYPE .£Q. RPO7) THEN 
CALL OUTPUT (LUN,DRIVE_DS,RPO7_DS,0,0,2,'0") 
ENDIF 


cat, OUTPUT (LUN,DRIVE_DS,MASS_DS,6,6,15,'0") 
endif 


Ooo 


"ERI" REGISTER 


CALL LINCHK (LUN,1) 


WRITE(LUN,520) DRIVE_ER1 
520 FORMATC? * 9 ‘RPERT® -124,28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_ds,drive_erl,1) 
CALL OUTPUT (LUN,DRIVE_ER1,MASS_ER1,0,0,15,'0") 

endif 
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525 


526 


Oona 


527 


528 


529 


OOo 


530 


*AR’ REGISTER 


CALL LINCHK (LUN,1) 


WRITE CLUN 568) RIVE Me) 78.8) 


if (.not. diagnostic_mode) then 


colt mba_status_register16_31 (lun,drive_erl,drive_mr1,1) 
else 


CALL LINCHK (LUN,1) 


WRITE (LUN, 526) 
FORMAT(® ',140, "DIAGNOSTIC MODE") 


"AS’ REGISTER 


CALL LINCHK (LUN,1) 


WRITE(LUN,527) DRIVE_A 
FORMAT? 48. RPAS' 7136, 78.8) 


if (.not. diagnostic_mode) then 

call mba_status_registerl6_31 (lun,drive_mr1,drive_as,1) 
DO 529 1=0,7 

if (LibSextzv(i,1,drive_as) .eq. 1) then 

CALL LINCHK (LUN,1) 


wage (ym, 528) | 
-140, ATTENTION UNIT ‘,11,°.") 
tery 
ONT INUE 
endif 


"DA* REGISTER 


CALL LINCHK (LUN,1° 


WRITE(LUN,530) DR 
FORMATO. * 2 "RP rite, 18.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun, drive_as,drive_da,1) 
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535 


537 


Oona 


541 


544 


545 


546 


547 


1 P -1 
¢- Sep-1 
CALL LINCHK (LUN,2) 
IF (EMBSB_DV_TYPE .€0. RPO7) THEN 
LD=LIBSEXTZV(0,6,DRIVE_DA) 

LD=LIBSEXTZ2V(0,5,DRIVE_DA) 
NDIF 
WRITE 535) F 

POUMAT Ce! T40,' T EEE tor = ", I<COMPRESS4 (FIELD)>,".") 
FIELD=LIBSEXTZV(8,5,DRIVE_DA) 
WRITE (LUN, 537) FIELD 


FOR -140,*°TRACK = *, I<COMPRESS4 (FIELD)>,*.*) 
ery y 


"DT® REGISTER 


CALL LINCHK (LUN,1) 


nave Cm, 54)? DRIVE _D 
FORMAT(* °,18,"RPDT Tbe, 78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_da,drive_dt,1) 
CALL LINCHK (LUN,1) 

FIELD=LIBSEXTZ2V(0,9,DRIVE_DT) 

IF (FIELD .EQ. DT_RPO4) THEN 


WRITE(LUN,544) DRIVE_TYP 
FORMAT’ TC0,ANT. FRpo AD 


ELSE IF (FIELD .EQ@. DT_RPOS) THEN 


WRITE(LUN,545) DRIVE_TYP 
FORMAT * 140,A1 Vinpos®) 


ELSE IF (FIELD .EQ@. DT_RPO6) THEN 


verre tye 546) Es TYPE 
FORMAT(® 1 140,A1 RPO) 


ELSE IF (FIELD .€Q. DT_RPO7) THEN 
WRITE(LUN,547) DRIVE TYPE 
A 


FORMAT(® 1140,A1 a 
ENDIF 


Be 90:08:09 


VAX=11 FORTRAN 


DISKSVMSMASTER: 


3. 4-56 
ERF .SRCIJMASSDISK.FOR; 


Pege 12) 


PUP PLUS LV PULLS SUIS SPSS SOLUS SIS SS SSIS SSSI ASSISTS 


mee ee ee ee a a ea ee mh dd td ad ed et = od = = = 4 = 


PUP PUPVPUSVSUSUSUSUSI SSIS I 


565 


Ooo 


570 


CALL OUTPUT (LUN,DRIVE_DT,VIMASS_DT,11,11,11,'0") 
os OUTPUT (LUN,DRIVE_DT,V2MASS_DT,13,13,13,°0") 
endif 


*LA® REGISTER 


CALL LINCHK (LUN,1) 


VORRAT TY toe ) DRIVE _LA 
 sRPLAY 7126,28.8) 


if (.mnot. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_dt,drive_la,1) 
IF (EMBSB_DV_TYPE .£Q. RPO7) THEN 
FIELD=LIBSEXTZ2V(5,7,DRIVE_LA) 

ELSE 


FIELD=LIBSEXTZ2V(4,2,DRIVE_LA) 
CALL LINCHK (LUN,1) 


WRITECLUN, 563) RPO456_LA(FIELD) 
FORMAT(’ ' 140, A<COMPRESSC (RP0456_LA(FIELD))>) 


F IELD=LIBSEXTZV(6,5,DRIVE_LA) 
ENDIF 


CALL LINCHK (LUN,1) 
aL ret, 565) FIELD 
FORMAT ( 


6° 140,"SECTOR COUNTER = ', I1<COMPRESS4 (FIELD)>,".") 
endif 


*ER2* REGISTER 


CALL LINCHK (LUN,1) 


WRITE CL 570) R 
(ene? 4 RPERO* .124,28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_la,rp_er2,1) 
IF (EMBSB_DV_TYPE .EQ. RPO4) THEN 

CALL OUTPUT (LUN,RP_ER2,VIRPO4_ER2,0,0,13,'0") 


igenet9Re 48:04:0 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


tes 


4-56 


Pa 
RF .SRCIMASSDISK.FOR; 1 


es ss 


A 
S 
Z 


33333333333 
Wewr 


— ot od wd dd 
MEUM OO OBNOUFWPR—"OOOVNOUSWNHR—O 


SSSSSSSSS 


COOa 


SSeS See 
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SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


uw 


Ig-se 
-Sep-19 


CALL OUTPUT (LUN,RP_ER2,V2RP04_ER2,15,15,15,'°0") 


FLst If ( 
ERB _DV_TYPE .£0. RPOS 

é EMBS$B_DV_TYPE .£Q. RPO6 
) THER 


CALL OUTPUT (LUN,RP_ER2,VIRPOS6_ER2,0,0,11,'0") 
CALL OUTPUT (LUN,RP_ER2,V2RP056_ER2,13,13,13,'°0") 
ELSE IF (EMBSB_DV_TYPE .E£Q. RPO7) THEN 

FIELD = LIBSEXTZV(0,8,RP_ER2) 

If (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 
WRITE(LUN,575) FIELD 

FORMAT(* °,140,"ERROR CODE = ',22," (HEX)") 

NDIF 

CALL OUTPUT (LUN,RP_ER2,VIRPO7_ER2,8,8,13,'0') 
ch Ourrur (LUN, RP_ER2,V2RP07_ER2,15,15,15,'0") 
endif 


*OF* REGISTER 


CALL LINCHK (LUN,1) 
porte tA, 2 92 DRIVE _OF 
FORMAT(* °,T8,*RPOF’,124,78.8) 
if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,rp_er2,drive_of,1) 
IF (EMBSB_DV_TYPE .NE. RPO7) THEN 
FIELD=LIBSEXT2ZV(3,3,DRIVE_OF) 
If (FIELD .€Q@. 0) THEN 
CALL OUTPUT (LUN, DRIVE_OF ,V1RP0456_O0F ,7,7,8,°0") 
it IF ¢ 
1 OR. 

FIELD .EQ. 4 


OR, 
4 FIELD .EQ. 6) 


VAX=11 FORTRAN 


-Sep-19 5 Pp 
DISKSVMSMASTER: CERF .SRCJMASSDISK.FOR;1 


| 


“Sep-19 DISKSVMSMASTER: CERF. SRCIMASSDISK. FOR, 1 


if-se Sep-1984 00:06:01 VAN=11 FORTRAN V3. 4-56 Page 15. 


5 AND. 
5 EMBSE_DV_TYPE EQ. RPOS) 
é (FIELD .GE. 1 
Z AND. 
1 FIELD LE. 3 
3 AND 
(EmB$B_DV_TYPE .£0. RPOS 
4 .OR 
; EMBSB DV_TYPE .£0. RPO6)) | 


CALL LINCHK (LUN,1) 
tT SS ale 4 2H rae OF (FIELD) 


| 
581 FSET = *,A<COMPRESSC (RPO4S6_OF (FIELD))>, | 
1° MICRO incnés®> | 
FIELD=LIBSEXTZV(7,1,DRIVE_OF) | 
CALL LINCHK (LUN,1) 
WRITECL 582) OFFSET DIR(FIELD) 
582 FORMAT(’ § T40, OFFSET DIRECTION = * | 
1 1 ACCOMPRESSC toreses _DIR(FIELD))>) 
CALL OUTPUT (LUN, DRIVE_OF ,V1RP0456_OF ,7,8,8,'0") | 
3 ELSE 


CALL OUTPUT (LUN,DRIVE_OF ,VIRPO456_OF ,7,8,8,'0") 


ENDIF 
es ENDIF 
CALL OUTPUT (LUN, DRIVE_OF ,MASS_OF,10,10,12,'0") 
IF (EMBSB_DV_TYPE .£Q. RPO7) THEN 


| 

| 

| 

| 

| 

CALL OUTPUT (LUN, DRIVE_OF ,RPO7_OF,14,14,15,'0") | 

5 ELSE | 
CALL OUTPUT (LUN. DRIVE_OF .V2RPO456_OF .15,15,15,"0") | 


endif 


: "DC" REGISTER | 
1 
: 5 CALL LINCHK (LUN,1) 

590 FORMAT? TB, "REDE 7194, 78.8) 

: Ht if (.not. diagnostic_mode) then 

! \ call mba_status_register16_31 (lun,drive_of,drive_dc,1) 


’ 9 | 
Bee 13be 80:06:59 DISKSVMSMASTER: TERE SRCIMASSDISK.FORSI™™ | 


WRITE(LUN,605) FIELD 
605 —-FORMAT(* ',140, "CURRENT CYLINDER = *,1<COMPRESS4 (FIELD)>,".") 


*SN’ REGISTER 


Mew 


Ooo 


CALL LINCHK (LUN,1) 


1 IF oC 
' ! EMBSB_DV_TYPE EQ, RPO6 | 

° | 
1 1 €me$e_DV_TYPE .£0. RPO7 | 
i 1) THER | 
1 FIELD=LIGSEXTZV(0,10,DRIVE_DC) 
' ELSE 
1 FIELD=LIBSEXTZV(0,9,DRIVE_DC) 
' ENDIF 0 
1 CALL LINCHK (LUN,1) | 0 
1 WRITE(LUN,S95) FIELD 8 
i 595 FORMAT ( 140, DESIRED CYLINDER = *,1<COMPRESS4 (FIELD)>,".") 8 

0 

¢ 08 
! ¢ "CC' REGISTER O¢ 
; 
i CALL LINCHK (LUN,1) 03 
1 WRITE(LUN, 600) RP CC 02 
! 600 FORMAT(* §,18,*RPCC’,124,78.8) O¢ 
; if (.mot. diagnostic_mode) then $8 
! call mba_status_register16_31 (lun, drive_dc.rp_cc,1) 8 
1045 IF 02 
1 | EMBSB_DV_TYPE .£0. RP06 O¢ 
1948 1 EMB$B_DV_TYPE .£0. RPO7 83 
1049 1) THER 0¢ 
1981 FIELD=LIBSEXTZV(0,10,RP_CC) 03 
1988 ELSE 0 
1054 F IELD=LIBSEXTZV(0,9,RP_CC) 0 
55 ENDIF 
i 33 CALL LINCHK (LUN,1) | 
1 
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1 
1 
1 
1 | 
1 
: | 
1 
1 
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WRITE(LUN,610) DRIVE_SN | 
610 SOME TE OTe ReeN =e s. 78.8) 


o 


S 
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300-138 90:88:39 DISKSVMSMASTER: CERF .SRCIMASSDISK.FORS1 >" 

if (.not. diagnostic_mode) then | 

call mbsa_status_register!6_31 (lun, rp_cc,drive_sn,1) 

endif 


C 
. "ERS" REGISTER 
614 CALL LINCHK (LUN,1) 


| 

} 

ois FOARRSLI™ STD? ABPEER? ra 0.00 | 

if (.mot. diagnostic_mode) then 
call mba_status_register!6_31 (lun, drive_sn,rp_er3,1) 

IF (EMBSB_DV_TYPE .£0. RPO4) THEN 

CALL OUTPUT (LUN,RP_ER3S,VIRPOS_ER3,0,0,1,°0") 

CALL OUTPUT (LUN,RP_ER3S,V2RP04_ER3,3,3,3,°0') 

CALL OUTPUT (LUN,RP_ER3,V3RP04_ER3,5,5,6,'0") 

CALL OUTPUT (LUN,RP_ER3,V4RP04_ER3,14,14,15,°0") 

i Egl6 Sv nore £0, mes 

O° eis: 

1 THER 

CALL OUTPUT (LUN,RP_ER3S,VIRPO5S6_ER3,0,0,1,°0") 

CALL OUTPUT (LUN,RP_ER3,V2RP056_ER3,4,4,6,'0') 

CALL OUTPUT (LUN,RP_ER3,V3RP05S6_ER3,13,13,15,°0") 

ELSE IF (EMBSB_DV_TYPE .£Q0. RPO7) THEN 

CALL OUTPUT (LUN,RP_ER3,VIRPO7_ER3,0,0,11,°0") 

cra) Sutrut (LUN, RP_ER3,V2RPO07_ER3,13,13,15,°0") 
| 
| 


DV_TYPE .EQ. RPO6 
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"EC1" REGISTER 


Ooo 


CALL LINCHK (LUN,1) 


WRITE(LUN,645) DRIVE_EC1 
PORRAT ES ote. REEL * 124,28.8) 


Roforenoroforonry 


NOU Eto 


3 


ee — _— 
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F 
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if (.not. diagnostic_mode) then 
cot) aba_stotus_rogisterié_s) (Lun, rp_er3,drive_ect,1) 


OOo 


*EC2* REGISTER 


CALL LINCHK (LUN,1) 


WRITE(LUN,650) DRIVE_EC 
650 FORMATYS tore. *RPEL oS. 78.8) 


if (.mnot. diagnostic_mode) then 
cot) nba_stotus pegtsterté_s1 (Lun, drive_ec!,drive_ec2,1) 


call Linchk (iun,1) 
write(lun,655) 

655 format(’ *.:) 
if Cemb$Sw_hd_entry .ne. 98) then 


call ucbSb_ertcnt (lun,emb$b_dv_ertcnt) 
call ucbSb_ertmax (lun,emb$b_dv_ertmax) 
endif 


call orb$l_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$Sw_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$w_errcnt (Lun, ,emb$w_dv_errcnt) 
if (emb$w_hd_entry .ne. 98) then 

call ucb$l_media (lun,emb$l_dv_media) 
call Linchk (lun,1) 

write (lun,655) 

call dbdriver_qio (lun,emb$w_dv_ func) 
call irp$Sw_bcnt (lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 


PSISVSARANVSSSLSALERISSSVSALUNASSSLEGEGALS 


ee me ee ed nd od od od 
ee ec ce cc ec ce et ed ed 


if stort 9g 92:05:23 DEScSumsmasten:CERF-SRCIMASSDISK.FORSI™™ "| 


call ir iosb (lLun,emb$\_dv_iosb1) 
+} Pll dal oe 
; START OF RMO3, RMOS AND RMBO DISK DRIVE SUPPORT 


§ LSE IF ¢ 
EMBSB_DV_TYPE .£0. RMO3 
5 OR 
EmB$B_DV_TYPE .£0. RMOS 
Ema$B_DV_TYPE .€0. RMBO 
1) THER 


if (LibSextzv(0,1,drive_mr1) .eq. 1) diagnostic_mode = .true. 
CALL LINCHK (LUN,2) 


vaL TES. 100%) priyg C8! 
1005 FORMAT(/* *RMCS',124,28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun,drive_cs!,drive_cs1,0) 
CALL OUTPUT (LUN,DRIVE_CS1,MASS1_CS1,0,0,0,'0") 

FIELD = LIBSEXTZV(1,5,DRIVE_CS1) 

DESCR(2) = FUNCN(FIELD) 

DESCR(1) = 33 

DESCR(1) = LIBSLOCC(*®** ,DESCR) 

CALL OUTPUTD (LUN,DESCR) 

Cay Sureut (LUN, DRIVE_CS1,MASS2_C€S1,11,11,11,°0") 


ed a 


C 
¢ "DS" REGISTER 
CALL LINCHK (LUN,1) 
WRITE ( 1030) DRIVE 
1030 ORMATGS fT »"RMDS', 12, 78.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun, drive_csl,drive_ds,1) 
CALL OUTPUT (LUN,DRIVE_DS,RMO3_DS.0,0,0,°0") 
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CALL OUTPUT (LUN,DRIVE_DS,MASS_DS,6,6,15,°0") 
endif 


"ERI" REGISTER 


oon 


CALL LINCHK (LUN,1) 


pd 10 5) DRIVE 
1035 ORMAT(S So} » RMERT ae 78.8) 


if (.mot. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_ds,drive_erl,1) 
CALL OUTPUT (LUN, DRIVE_ER1,MASS_ER1,0,0,15,'°0") 

endif 


C 

: *MR" REGISTER 
CALL LINCHK (LUN,1) 
WRITE SLUM, 1060) DRIVE WR 

1040 3, 78.8) 
if (.not. sensei net then 
eet’ mba_status_register16_31 (lun,drive_er|l,drive_mr1,1) 
else 
call Linchk ce 
wane ym, 18 

1042 DIAGNOSTIC MODE *) 
endit 

C 

: "AS* REGISTER 
CALL LINCHK (LUN,1) 
vate tt 1045) DRIVE_AS 

1045 (ns 18, RMAS' ,124,78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_arl,drive_as,1) 
DO 1048 I=0,7 

if (LibSextzv(i,!,drive_as) .eq. 1) then 

CALL LINCHK (LUN,1) 
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5 
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Oon 


1050 


1055 


1060 


OOo 


1065 


(LUN, 1066) I 
FORMATS #140, *ATTENTION UNIT ',11,°.") 
TINUE 
if 
"DA' REGISTER 


CALL LINCHK (LUN,1) 


WRITECLUN, 1050). DR 
ORMAT( 118, °RRDA™-T26,28..8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_as,drive_da,1) 
CALL LINCHK (LUN,2) 

FIELD=LIBSEXTZV(0,5.DRIVE_DA) 


wane ys 182 ) FIELD 
FORMAT ( «SECTOR = *,I<COMPRESS4 (FIELD)>,°.") 


IF (EMBSB_DV_TYPE .£0. RMO3) THEN 
FIELD = LIGSEXTZ2V(8,3,DRIVE_DA) 

ELSE IF (EMBSB_DV_TYPE .£0. RM8O) THEN 
FIELD = LIBSEXTZ2V(8,4,DRIVE_DA) 

ELSE IF (EMBSB_DV_TYPE .£0. RMOS) THEN 


FIELD = LIBSEXTZV(8,5,DRIVE_DA) 
ENDIF 


WRITELUN, 1060) FIELD 


FORMAT ( TRACK = *, I<COMPRESS4 (FIELD)>,".*) 
endif 


*DT* REGISTER 


CALL LINCHK (LUN,1) 


WRITECL 1065) DRIVE 
FORMAT ( cel »*RMDT', 14, 78.8) 


if (.mot. diagnostic_mode) then 
call mba_status_register!6_31 (iun,drive_da,drive_dt,1) 
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-Sep-19 VAX-11 FORTRAN V3.4-56 22. 
ifese att 92: 88: 33 DI SKSVMSMASTER: CER RF .SRCIMASSDISK.FOR; rye | 
1 | 
' CALL LINCHK (LUN,1) 
IF (FIELD .£0. DT_RMO3) THEN | 
1 WRITE ( 1067) DRIVE_TYPE . 
i 1067 ORMATCS 967 0,A11, RAMOS") | 
i ELSE IF (FIELD .€0. DT_RM8O) THEN 
1 WRITECLUN,1 RIVE TYPE 

i 1068 FORMATL® #120, 40,A11, RAMBO") 

! ELSE IF (FIELD .€0. DT_RMOS) THEN 

1 WRITECL 1969) DRIVE TYPE 

1 1069 FORMATE #16 0,A11,'RAOS') 

! ENDIF 

' CALL OUTPUT (LUN,DRIVE_DT,VIMASS_DT,11,11,11,°0") 

1 CALL OUTPUT (LUN, DRIVE_DT,V2MASS_DT,13,13,13,°0") 

’ endif 

1 C 

1 C ‘LA’ REGISTER 

' C 

i CALL LINCHK (LUN,1) 

1 WRITECL 1075) DRIVE 

1075 cent 18, RMLA', 154, 78.8) 

: if (.not. diagnostic_mode) then 

\ call mba_status_register16_31 (lun,drive_dt,drive_la,1) 

i FIELD=LIBSEXTZV(6,5,DRIVE_LA) 

1 CALL LINCHK (LUN,1) 

1 URITECLUN, 108 ) FIELD 

1 1080 » "SECTOR COUNTER = ',I<COMPRESS4 (FIELD)>,'.") 

: herr y 

1 C 

1 ¢ "SN' REGISTER 

1 ¢ 

1 

1 

1 WRITE(LUN,1085) DRIVE 

| 1085 vOAMaTee te *RMSN', Tb, 28.8) 

1 if (.not. diagnostic_mode) then 


CALL LINCHK (LUN, 1) 
| 
} 
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colt mba_status_register16_31 (lun,drive_la,drive_sn,1) 
endif 


*OF* REGISTER 


PRLS 
Pd ad 


CALL LINCHK (LUN,1) 


WRITES 1090) DRIVE 
1090 RAT oT » "RMOF * eh, 78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun, drive_sn,drive_of,1) 
IF (JIAND(DRIVE_DS,1) .£Q@. 1) THEN 
FIELD=LIBSEXTZV(1,1,DRIVE_OF) 

CALL LINCHK (LUN,1) 


NOVEM ("OOOO Ww 
Aono 


BEEP PEEP EEE EEE EEE 
wn 


5 
WRITE (LUN, 1095) OF FSET_ 
1095 «FOR "OF FSET™ = 
1 ONCCOMPRESSC. (OF FSET_D D))>) 
38 ELSE 
441 CALL OUTPUT (LUN,DRIVE_OF ,V1RMO3_OFF.7,7,7,°0") 
aie ENDIF 
444 IF (EMBSB_DV_TYPE .£0. RM8O) THEN 
446 CALL OUTPUT (LUN,DRIVE_OF ,V1RM80_OFF.9,9,9,°0°") 
447 ENDIF 
449 CALL OUTPUT (LUN,DRIVE_OF ,MASS_OF.10,10,12,'0") 
i endif 
4 c 
4 : ¢ ‘DC’ REGISTER 
33 
a3 CALL LINCHK (LUN,1) 
4 WRITE (LUN, 1100) DRIVE 
439 1100 Cty »"RMDC’, 1s, 28.8) 


ee ee ee me ee a a ee ed nd od od dd = = = dd 


$8) if (.not. diagnostic_mode) then 

ces call mba_status_register!6_31 (lun,drive_of,drive_dc,1) 
465 FIELD=LIBSEXTZV(0,10,DRIVE_DC) 

2 CALL LINCHK (LUN,1) 

46 WRITE(LUN,1105) FIELD 
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ALTE tL, 4 0} RM Re 
FORMAT(’ RMER2' ,124,78.8) 


if (.not. iene meal then 

call mba_status_register16_31 (lun, rm_mr2,rm_er2,1) 
CALL OUTPUT (LUN,RM_ER2,V1IRMO3_ER2,3,3,3,'0") 

IF (EMBSB_DV_TYPE .€Q. RM8O) THEN 

cA) cureur (LUN, RM_ER2,V1RM80_ER2,5,5,5,'0") 
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CALL OUTPUT (LUN, RM_ER2,V2RMO3_ER2,7,7,7,°0") 
CALL OUTPUT (LUN, RM_ER2,V3RM035_ER2,10,10,15,'0") 
endif 


14 1105 FORMAT(* *,140,"DESIRED CYLINDER = °, I1<COMPRESS4 (FIELD)>,*.") 
14 endif 

178 ¢ 

14 C ‘WR’ REGISTER 
i 

i CALL LINCHK (LUN,1) 

14 pd + 1110) RM_HR 

1486 1110 ORMAT? "18 , RMHR' ,124,78.8) 
6 § if (.not. diagnostic_mode) then 
14 col} mba_status_register16_31 (lun,drive_dc,rm_hr,1) 
1485 endif 

1a? 

14 C *MR2° REGISTER 

1490 

1432 CALL LINCHK (LUN,1) 

149 ALS 11153 RM_MR2 

1494 1115 FORMAT( cae! , RMMR2' ,124,28.8) 
Pes if (.not. diagnostic_mode) then 
io call mba_status_register16_31 (lun,rm_hr,rm_mr2,1) 
13 endif 

1501 C 

1 3 C *ER2* REGISTER 

: C 

: 5 CALL LINCHK (LUN,1) 
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| 
"ECT" REGISTER 
CALL LINCHK (LUN,1) 


on 


1125 PORMATY! fT cRMEEY ES “50.28.8) 


if (.mot. diagnostic_mode) then 
col} abe_stetus_registerté_51 (lun, rm_er2,drive_ec!,1) 
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CALL LINCHK (LUN,1) 


, ta 


WRITE(LUN,1130) DRIVE_E 
1130 PORTE Syms 1330 *RMEC2' “Se 78.8) 


if (.not. diagnostic_mode) then 
cal) aba_stetus_rogisterté_st (Lun, drive_eci,drive_ec2,1) 


ww 


call Linchk (lun,1) 


write(lun 1135) 
1135 ~— format(' §,:) 


if (emb$w_hd_entry .ne. 98) then 

call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 


aes 


ab 4b 4) 


SESS 


call orb$l_owner (Lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
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call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
if (emb$w_hd_entry .ne. 98) then 

call ucb$l_media (lun,emb$l_dv_media) 
call Linchk (lun,*) 

write(lun,1135) 
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16-Sep-19 :06: VAX=-11 FORT 3.4-56 

Hetty 9:88:39 DISKSVMSMAS ER: CERF .SRCIMASSDISK.FOR 
call drdriver_qio (lun,emb$w_dv_ func) 

call irp$wbcnt (lun,emb$w_dv_bcnt) 

call irp$w_boff (lun,emb$w_dv_boff) 

call irp$l_pid (lun,emb$l_dv_rapid) 

call irp$q_iosb (lun.emb$\_dv_iosb1) 

endif 

ENDIF 


RETURN 
END 


Os as a a a se a 


SESESSSSSENESE 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 6 $3 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1270 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 6 98 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 14743 


ENTRY POINTS 
Address Type Name 


DEL DEL SFA DPA DE. DF. DPR BF BE BEL DF. BFL OF. BFL BF. OER BFL BFL DPR DPR DPR BFL DL BER BML BPR DER BPR DAR BRL BPR OAR OA OM Be 


0-00000000 MASSDISK 
VARIABLES 
Address Type Name Address Type Name 


oe. 2 OP 8. OP. OM OM OM 


i 
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0 
0 
0 
0 
0 
0 
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0 
0 
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0 
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DIAGNOSTIC - DIAGNOSTIC MODE 
DRIVE_AS 7 DRIVE_CLEAR 
DRIVE-CS1 - DRIVE-DA 
DRIVE-DC - DRIVE-DS ‘ 
DRIVE~DT - DRIVE-EC1 ‘ 
DRIVE ~EC2 - DRIVE-ER1 0; 
DRIVE~ FUNC - DRIVE-LA 0 
DRIVE-MR1 - DRIVE ~OF ( 
DRIVE-SN - DRIVE-TYPE | 0; 
EMBSB~DV_CLASS - EMBSB_DV_ERTCNT | 0; 
EMBSB_DV~ERTMAX - EMB$B_DV~NAMLNG 
EMBSB~DV~ SLAVE - EMBSB_DV-TYPE | 
EMBSL~DV~CHAR - EMBSL~DV~10SB1 
EMBSL~DV"10SB2 - EMBSL~DV“MEDIA 
EMBSL~DV~NUMREG - EMBSL~DV~OPCNT | 
EMBSL~DV~OWNUIC - EMBSL~DV~ROPID | 

| 

} 
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CHAR EMBST_DV_NAME 


CHAR NO_OP 
CHAR PACK_ACKNOWLEDGE 
READ _DATA 


CHAR READ. TRACKD 
CHAR RELEASE_PORT 
RM_HR 


P-CC 


R UNLOAD 
WRITE _CHECKD -Q0000C35A al 
WRITE_DATA ~OO0O00CBF CHAR WRITE_TRACKD 
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uw 
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| 
| 
| 
Address Label Address Label Address Label Address Label Address Label Address Label | 
oe 0 1- 4 4C +f 1-0000005E 293" 1-0000006F $0 1-00000081 $2. 
rsa 8d $ 1 \- A . ee e445 444 0° 1-Q00000E 7 - 
1 10 . 1 1- 1 g 44' 1=Q0000013A 545° 1- 33 014 46° 1- 1 $ 47° 
ee 4 1 l- 1 $3 1-00000181 565° 1- Bane 70° = 1B 75° 
1 196 9 1 1- 208 . 1- g 90° 1-0000023D 595° 1-00000261 . 
1 2 n 1 ee oh 1- A? 615° 1-000 3 * 645° 1-000002CB 650° 
1 ? . 1 1-000002F4 9? ‘ 1-00 05 1035° 1- 38 1 1990. 1-00000329 ot 
1 3. 1 ee 104 1- 4 6D 1050° 1-0000037E 133 -00000398 1060° 
1-00000 1 . 1 1-00000301 196 . 1-00 DF 1069° 1-00000 4 1075° e's 4 1080° 
ss 1 é. 1 i= 000442 1095° 1-00000463 a 1-00000474 1192. 1-00000498 1110° 
1 AQ 1115° 1 1-000004CD 1125° 1-000004DF 1130° 1-000004F1 1135" 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 COMPRESSC DBDRIVER_QIO 
DHEAD1 DRORIVER_QIO FRCTOF 
IRebobor ise Hiebert ise Uieatoee 
LINC MBA_CONTROL_REGISTERS MBA_MAPPING_REGISTER 
MBA_STATUS_REGISTER16_31 ORBSL_ R OUTPUT 
OuTPUTD UCBSB_ERTCNT UCBSB_ERTMAX 
UCBSL_CHAR UCBSL_MEDIA UCBSL_OPCNT 
UCBSW_ERRCNT UCBSW_STS 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


2286 284 odd odd od od od od od od od od ld od od od od od ol ot ot ot ot od ot od oft oft oft ofl od od oft ofl od oll oft oft od od od ot oli oli od ot od alt od oll oll wt od od At kt od 


) 


10 

ig $e0-1 984 70:08:29 DISKSVMSMASTER: CERF <SRCIMASSDISK.FORSI™ 
at | 
2004 Subroutine DBDRIVER_Q10 (Lun,embSw_dv_ func) | 
+4 
2007 include "src$:qiocommon.for /nolist’ | 
; : byte lun | 
D274 
Le integere2 emb$w_dv_ func 
78 integere4 qiocode(0:1,0:63) 
: if (qiocode(0,0) .eq. 0) then 
‘ aqiocode(1,00) = Zloc(io$_nop) 
giocode(1,01) = Zloc(io$_unload) 
‘ qiocode(1,02) = Zloc(io$_seek) 
38 giocode(1,03) = Sloc(io$_recal) 
+) qiocode(1,04) = Zloc(io$_drvcir) 
% qiocode(1,05) = Zioc(io$_release) 
be giocode(1,06) = Zloc(io$_offset) 
qiocode(1,07) = Zloc(io$_retcenter) 
D298 qiocode(1,08) = Zloc(io$_packack) 
+5} qiocode(1,09) = Zloc(io$_search) 
0308 giocode(1,10) = Zloc(io$_writecheck) 
Si giocode(1,11) = Zloc(io$_writepblk) 
5S qiocode(1,12) = Zloc(io$_readpblk) 
D508 giocode(1,13) = Lloc(io$_writehead) 
10 giocode(1,14) = Zloc(io$_readhead) 
1¢ giocode(1,24) = Zloc(io$_writecheckh) | 
13 qiocode(1,25) = Zloc(io$_readpreset) 
1g qiocode(1,26) = Zloc(io$_setchar) 
18 qiocode(1,27) = Zloc(io$_sensechar) 
0320 giocode(1,32) = Zloc(io$_writelblk) 
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qiocode(1,33) 
qiocode(1,35) 
qiocode(1,39) 
qiocode(1,48) 
giocode(1,49) 
qiocode(1,50) 
aqiocode(1,51) 
qiocode(1,52) 
qiocode(1,53) 
qiocode(1,54) 
qiocode(1,56) 
qiocode(1,57) 


do 10,1 = 0,63 


= Zloc(io$_readibik) 
= Zloc(io$_setmode) 

= Zloc(io$_sensemode) 
= Zloc(io$_writevbik) 
= Zloc(io$_readvblk) 
= Zloc(io$_access) 

= Zloc(io$_create) 

= Zloc(io$_deaccess) 
= Zloc(io$_delete) 

= Zloc(io$_modify) 

= Zloc(io$_acpcontrol) 
= Zloc(io$_mount) 


aiocode(0,i) = 33 


if (qiocode(1 


iocode(1,i) = Zloc(qio_string) 
endit — 


cont inue 
endif 
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return 
end 
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Address Type Name 
Address Type Name 
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ENTRY POINTS 


DBDRIVER_Q10 
PROGRAM SECTIONS 


DBDRIVER 010 if Jenni ge 90:06:94 
RBBB, EAN 1S8-WaL TECH ASG SBRSSTESY EAE [Ok ved Taek 


ARRAYS 

Address Type Name Bytes Dimensions 
2-00000000 1*4 QI0CODE $12 (0:1, 0:63) 
LABELS 

Address Label 

we 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_F UNC 1*4 LIBSEXTZV 


AX-11_ FORTRAN 
ISKSVMSMASTER 
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4 
$73ep-1986 6:08:29 
00 subroutine drdriver_qio (lun,emb$w_dv_ func) 


D008 include ‘src$:qiocommon.for /nolist’ 


byte lun 
integer*2 emb$w_dv_ func 
integer*4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,00) = Zloc(io$_nop) 
qiocode(1,02) = Zloc(io$_seek) 
qiocode(1,03) = Zloc(io$_recal) 
qiocode(1,94) = Zloc(io$_drvcir) 
qioc-de(1,05) = Zloc(io$_release) 
qiocode(1,06) = Zloc(io$_offset) 
giocode(1,07) = Zloc(io$_retcenter) 
qiocode(1,08) = Zloc(io$_packack) 
aiocode(1,09) = Zloc(io$_search) 
giocode(1,10) = Zloc(io$_writecheck) 
qiocode(1,11) = Zloc(io$_writepblk) 
giocode(1,12) = Zloc(io$_readpbik) 
qiocode(1,13) = Zloc(io$_writehead) 
qiocode(1,14) = Zloc(io$_readhead) 
aqiocode(1,15) = Zloc(io$_writetrackd) 
giocode(1,16) = Zloc(io$_readtrackd) 
qiocode(1,24) = Zloc(io$_writecheckh) 
qiocode(1,25) = Zloc(io$_readpreset) 
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VAX=11 FORTRAN 


2 4-36 P 
DISKSVMSMASTER: CERF .SRCIJMASSDISK.FOR; 
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10 


qiocode(1,26) 
qiocode(1,27) 
qiocode(1,29) 
qiocode(1,32) 
qiocode(1,33) 
qiocode(1,48) 
qiocode(1,49) 
qiocode(1,50) 
qiocode(1,51) 
qiocode(1,52) 
qiocode(1,53) 
qiocode(1,54) 
qiocode(1,56) 
qiocode(1,57) 
do 10,1 = 0,63 


Zloc(io$_setchar) 
Zloc (io$_sensechar) 
Zloc(io$_diagnose) 
Zloc(io$_writelblk) 
Zloc(io$_readiblk) 
Zioc (ioS_writevblk) 
Zloc (io$_readvblk) 
Zloc(io$_access) 
Zloc(io$_create) 
Zloc (io$_deaccess) 
Zloc (io$_delete) 
Zloc( io$_modi fy) 
Zloc (io$_acpcontrol) 
Zloc (io$_mount) 


qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
jiocode(1,i) = Zloc(qio_string) 

ong venta 


gett irp$w_ fun 


qiocode(0, Li 


C 
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(Lun, emb$w_dv_f 


Sextzv(0, 6-embSu_d a func))) 


b= 


-Sep-1 
Sep-1 


Be 10:08:99 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


. -56 P bt 
LeatTSecamasspisK.FORSS 
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Bytes 


EADPRESET 
EADWTHXBUF 


hs 
= 
SS5exz o- 
SeeswsoKs 
Sas < 
ie dt MMMMM 
‘6 #eeee eee ee 
3s 


sueesssss 
ESESSSETEEEEEEEEESSECeeeeeeseeeee: 


MQVVV VV VV BBV V9 BV VV BB VEE VE YVOVVVSIYVUIYUYUWY 


DRORIVER_Q10 
ORMAT 
peenene 
FFSET 
STOP 
EADCSR 
EADLBLK 
EADVBLK 


3 
@ 
8 
z 
oe 
3 
8 
3 
s 


Address Type Name 
Address Type Name 


DRORIVER_Q10 
PROGRAM SECTIONS 
QTOCOMMON 
ENTRY POINTS 

VARIABLES 


samme rea if: se0- 1944 92:88:33 Disk VMSRAS TEN TER t SRCIMASSDISK.FOR. I" - 
ESG008L75 Sieh 198-vRHTEDMASP $99000808 coat 198-vat Tage 
L*1 LUN - Al CHAR QI1O-STRING 
2-00000000 I*4 QIOCODE $12 (0:1, 0:63) 
LABELS 
Address Label 
oe 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC 1*4 LIBSEXTZV 


COMMAND QUALIFIERS 

FORTRAN /LIS=L1S$:MASSDISK/ JBJ=0BJ$:MASSDISK MSRC$:MASSDISK 

/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 

(oEBUG= (NOS TROOL § TRACEBA BACK) 

/STANDARD=(NOSYNTAX ,NO FORM) 

/SHOW= (NOPREPR OCESSORS ROLNE LODE MAP 

/#77 = /NOG_ FLOATING 714 SbPTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
COMPILATION STATISTICS 

Time: 26-68 sec nds 
tke Time: 


Page Faults: 66 
Dynamic Memory: 1 pages 


ARRAYS 
Address Type Name Bytes Dimensions 
49.69 seconds 
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